home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / dev / lang / SmallEiffel.lha / SmallEiffel / misc / benchmarks / gc / MFSO / bench.e < prev    next >
Encoding:
Text File  |  1998-12-22  |  397 b   |  28 lines
  1. class BENCH
  2.  
  3. creation
  4.    make
  5.    
  6. feature
  7.    
  8.    make is
  9.       local
  10.      apple: APPLE
  11.      apple_array: ARRAY[APPLE]
  12.      i, limit: INTEGER
  13.       do
  14.      -- limit := 20_000_000    -- large config
  15.      limit := 2_000_000        -- small config
  16.      !!apple_array.make(1, limit)
  17.      from
  18.         i := 1
  19.      until
  20.         i > limit
  21.      loop
  22.         !!apple.make(i)
  23.         apple_array.put(apple, i)
  24.         i := i + 1
  25.      end
  26.       end
  27. end
  28.